COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00009 ENDMK
C⊗;

	LMAX=10000
	NBAR(1)=1
	J=1
3	M=1
	JAV=JTOT/NT
	IF(JAV.GT.KAV)JAV=JAV-2
 	IF(JAV.LT.KAV)JAV=JAV+2
	K=JBAR(J)
1	J=J+1
	IF(J.GT.KT)GO TO 2
	N=JBAR(J)
	IF(K+N/2.GE.JAV)GO TO 2
	M=M+1
	K=K+N
	GO TO 1
2	L=L+1
	JTOT=JTOT-K
	NT=NT-1
	JRN(L)=K
	NBAR(L+1)=J
	IF(NT.NE.0)GO TO 3
5	MAX=0
	MIN=10000

	DO 7 L=1,JT
	K=JRN(L)
	IF(K.LE.MAX)GO TO 6
	MAX=K
	MX=L
6	IF(K.GE.MIN)GO TO 7
	MIN=K
	MN=L
7	CONTINUE

	IF(MAX.GE.LMAX)GO TO 9
	LMAX=MAX
	DO 8 J=1,JT+1
C  SAVE NBAR INFO IN MBAR
8	MBAR(J)=NBAR(J)

	IF(MX.LT.MN)GO TO 32
	JJ=0
	JM=-1
	JK=1
23	K=NBAR(MX+JJ)-JJ
C NEXT RIPPLES THE BARS, FROM MAX TO MIN.
	MM=JBAR(K)
	JRN(MX)=JRN(MX)-MM
	JRN(MX+JM)=JRN(MX+JM)+MM
	NBAR(MX+JJ)=K+JK
	MX=MX+JM
	IF(JJ.NE.0)GO TO 223
	IF(MX.GT.MN)GO TO 23
	GO TO 5 
223	IF(MX.LT.MN)GO TO 23
	GO TO 5 
32	JJ=1
	JM=1
	JK=0
	GO TO 23
9	MBAR(JT+1)=KT+1
	DO 10 K=1,JT
	N=MBAR(K)
	M=MBAR(K+1)
 	NBAR(K)=N
	JRN(K)=0
	DO 10 J=N,M-1
10	JRN(K)=JRN(K)+JBAR(J)
13	DO 11 L=2,JT
	K=NBAR(L)
	MM=JRN(L)
	KK=JRN(L-1)
	IF(MM.GE.KK)GO TO 12
C  JUGGLES ADJACENT LINES
	N=JBAR(K-1)
	IF(KK-MM.LT.N)GO TO 11
	JRN(L-1)=KK-N
	JRN(L)=MM+N
	NBAR(L)=K-1
	GO TO 13
12	N=JBAR(K)
	IF(MM-KK.LE.N)GO TO 11
	JRN(L-1)=KK+N
	JRN(L)=MM-N
	NBAR(L)=K+1
	GO TO 13
11	CONTINUE
46	J=1
	NBAR(JT+1)=KT+1
	JTOT=TOT+.5
	JAV=JTOT/JT
	TYPE 306,JAV
	GO TO 307
	PRINT 306,JAV
307	DO 305 K=1,JT
	NBAR(K)=NBAR(K+1)-NBAR(K)
C NBAR NOW HAS NUM. OF BARS PER LINE.
	L=NBAR(K)-1+J
306	FORMAT(I5,3X8I5)
	TYPE 306,JRN(K),(JBAR(N),N=J,L)
	GO TO 305
	PRINT 306,JRN(K),(JBAR(N),N=J,L)
305	J=L+1
	NBAR(JT+1)=0
	
	RPG=JT
	RPG=RPG/MPG
105	TYPE 104,RPG,JT
	GO TO 104
	PRINT 104,RPG,JT
104	FORMAT(F5.2,' PAGES',/,I4,' LINES - OR TYPE N1, N2 --'$)